#!/usr/bin/perl 
use strict;
binmode STDOUT,':encoding(utf-16le)';
my @array=qw (nili wilim gebi);
while(<STDIN>)
{
	chomp;
	print "the say is $_\n";
	print "@array\n";
	print @array;
	print
	printf "the item is:".("%s"x@array),@array;
}
open STDIN,">>./11.txt";
